proc test {} {
	if {1} {
		set test OK
		
		if {$test eq OK} {
			set test end
		}
	}
}